home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 October: Mac OS SDK / Dev.CD Oct 96 SDK / Dev.CD Oct 96 SDK2.toast / Development Kits (Disc 2) / OpenDoc Development Framework / ODFDev / MPW-ToolServer Additions / UserStartup•ODF next >
Encoding:
Text File  |  1996-08-16  |  1.4 KB  |  56 lines  |  [TEXT/MPS ]
  1. #========================================================================================
  2. #
  3. #    File:                UserStartup•ODF
  4. #    Release Version:    $ ODF 1 $
  5. #
  6. #    Copyright:    (c) 1993 - 1996 by Apple Computer, Inc., all rights reserved.
  7. #
  8. #========================================================================================
  9. # Drop this file in your MPW Folder
  10.  
  11. if ¬ {_UserStartup•ODF_}
  12. set _UserStartup•ODF_ 1
  13. export _UserStartup•ODF_
  14.  
  15. set FWUseToolServer 0
  16. export FWUseToolServer
  17.  
  18. #    Set the location of the OpenDoc Parts Framework Folder
  19. # If the folder can't be found; automatically prompts user for it and
  20. # remember where the folder was found
  21.  
  22. if  ¬ "{ODF}" && "`Exists "{PrefsFolder}"ODF_Folder`" 
  23.     Set ODF     "`Catenate "{PrefsFolder}"ODF_Folder`"
  24. End
  25. if ¬ "`Exists "{PrefsFolder}"ODF_Folder`" || ¬ "`Exists "{ODF}"`"
  26.     Set exit 0
  27.     Set temp "{Boot}"
  28.     Loop
  29.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"ODF∂" folder?")≥dev:null`"
  30.         if "{temp}"!=""
  31.             Echo -n "{temp}" > "{PrefsFolder}"ODF_Folder
  32.             Set ODF "{temp}"
  33.         Else
  34.             exit
  35.         End
  36.         (set x "`Exists "{temp}Framewrk:"`") ≥dev:null
  37.         if  "{x}"==""
  38.             Alert ODF - The ∂"{temp}∂" folder does not contain ODF files.
  39.         else
  40.             break
  41.         end
  42.     End
  43.     set exit 1
  44. End
  45.  
  46. Set ODF "`Catenate "{PrefsFolder}"ODF_Folder`"
  47. Export ODF
  48.  
  49. For __Startup__i in `(Files "{ODF}Tools:Mac:Startups:"Startup≈ || Set Status 0) ≥ dev:null`
  50.     Execute "{__Startup__i}"
  51. End
  52. Unset __Startup__i
  53.  
  54. End
  55.  
  56.